<%

Function torneio_lista_clubes(conexao, tabela, clubes)
	
	If isIndividuais(tabela) then

		torneio_lista_clubes = usuario_lista(clubes)
		
	Else
	
		torneio_lista_clubes = torneio_clubes(conexao, clubes)	
	
	End If
	
End Function

Function torneio_lista_clubes_id(conexao, tabela, clubes, id)

	If isIndividuais(tabela) then

		torneio_lista_clubes_id = usuario_lista_id(clubes, id)
		
	Else
	
		torneio_lista_clubes_id = torneio_clubes_id(conexao, clubes, id)	
	
	End If
	
End Function


Function torneio_clubes(conexao, clubes)

	DIM total
	
	total = 0

	str = "Select id, nome, id_clube FROM clubes order by nome asc"
   	Set rs = conexao.Execute(str)	
	
	Do while not rs.eof
	
		clubes(total,0) = rs("id")
		clubes(total,1) = rs("nome")
		clubes(total,2) = rs("id_clube")
		total=total+1
	
	rs.MoveNext
	loop
	
	torneio_clubes = total
	
End Function

Function torneio_clubes_id(conexao, clubes, id)

	DIM total
	
	total = 0

	str = "Select id, nome, id_clube FROM clubes where id="&id
   	Set rs = conexao.Execute(str)	
	
	Do while not rs.eof
	
		clubes(total,0) = rs("id")
		clubes(total,1) = rs("nome")
		clubes(total,2) = rs("id_clube")
		total=total+1
	
	rs.MoveNext
	loop
	
	torneio_clubes_id = total
	
End Function
%>